home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / ladybug.arc / DUOPOLY.BUG < prev    next >
Encoding:
Text File  |  1983-09-24  |  325 b   |  4 lines
  1. DEFINE "vector [[ :dir :len][setheading :dir][forward :len]]
  2. DEFINE "duopoly [[ :side1 :angle1 :side2 :angle2][duopoly2 :side1 :angle1 :side2 :angle2 0]]
  3. DEFINE "duopoly2 [[ :side1 :angle1 :side2 :angle2  :c][vector 0 + :c * :angle1 :side1][vector 0 + :c * :angle2 :side2][duopoly2 :side1 :angle1 :side2 :angle2 1 + :c]]
  4.